home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / sims.arc / CREATE.SRC < prev    next >
Text File  |  1987-04-07  |  2KB  |  103 lines
  1. ' Create Menu Version 1.00
  2. ' SIMS (c) David Thomas Stewart 1984-1987
  3. ' Distributed by Synergy Development - THIS PROGRAM IS PUBLIC DOMAIN
  4.  
  5. screen(n)
  6.  
  7. normal
  8. foreground(white+)
  9. background(red)
  10. setdate
  11. settime
  12.  
  13. date(2,9)
  14. time(65,9)
  15. argue(25,20,40)
  16.  
  17. normal
  18. foreground(green)
  19. setattr
  20.  
  21. box(0,0)-(79,24),"║"
  22. fill(1,0),"═",78
  23. fill(1,24),"═",78
  24. fill(1,8),"─",78
  25. fill(1,10),"─",78
  26. .(0,0)"╔"
  27. .(0,24)"╚"
  28. .(79,0)"╗"
  29. .(79,24)"╝"
  30. .(0,8)"╟"
  31. .(79,8)"╢"
  32. .(0,10)"╟"
  33. .(79,10)"╢"
  34.  
  35. foreground(white+)
  36. background(blue)
  37. setattr
  38. .(29,9)" Create Demo Version 1.00 "
  39.  
  40. normal
  41. foreground(yellow)
  42. setattr
  43. .(15,2)"████▒  ████▒   ████▒  ████▒  ██████▒  ████▒"
  44. .(15,3)"█▒     █▒ █▒   █▒     █▒ █▒    █▒     █▒"
  45. .(15,4)"█▒     ████▒   ████▒  ████▒    █▒     ████▒"
  46. .(15,5)"█▒     █▒ ██▒  █▒     █▒ █▒    █▒     █▒"
  47. .(15,6)"████▒  █▒  █▒  ████▒  █▒ █▒    █▒     ████▒"
  48.  
  49. option start
  50. option(F1,11,13)" F1 - Edit Menu Source File ","\COMMAND.COM/C EDLIN ",argue,clear,noclock
  51. option(F2,44,13)" F2 - MAKEMENU (Convert) Menu ","MAKEMENU.EXE"
  52. option(F3,11,14)" F3 - Try out USER Menu ","MENU USER"
  53. option(F4,44,14)" F4 - Return to DEMO Menu ","MENU DEMO"
  54. option end
  55.  
  56. border(grey)
  57.  
  58. normal
  59. foreground(cyan)
  60. setattr
  61.  
  62. proc(F1,select)
  63. fill(1,17)," ",78
  64. .(18,17)"Edit Menu Source File"
  65. proc end
  66.  
  67. proc(F2,select)
  68. fill(1,17)," ",78
  69. .(18,17)"MAKEMENU (Convert) Menu"
  70. proc end
  71.  
  72. proc(F3,select)
  73. fill(1,17)," ",78
  74. .(18,17)"Try out USER Menu"
  75. proc end
  76.  
  77. proc(F4,select)
  78. fill(1,17)," ",78
  79. .(18,17)"Return to DEMO Menu"
  80. proc end
  81.  
  82. proc(F1,exec)
  83. inverse
  84. setattr
  85. setargue
  86. .(7,20)"Menu Source File >"
  87. proc end
  88.  
  89. proc(F2,exec)
  90. invisible
  91. setdate
  92. settime
  93. time(65,0)
  94. normal
  95. setattr
  96. field(0,0)-(79,24)
  97. foreground(white+)
  98. background(blue)
  99. settime
  100. proc end
  101.  
  102. end
  103.